object db: Tdb
  OldCreateOrder = False
  Height = 313
  Width = 579
  object adocon: TADOConnection
    Left = 40
    Top = 40
  end
  object qr1: TADOQuery
    Parameters = <>
    Left = 96
    Top = 40
  end
end
